INPUT LOADS  INPUT-UNITS=METRIC OUTPUT-UNITS=METRIC ..
TITLE  LINE-1 * HVAC BESTEST. E100*  
       LINE-2 *IEA TASK 22 *
       LINE-3 *JUAN TRAVES. ESE, CIEMAT* .. 
		ABORT              ERRORS     ..
		DIAGNOSTIC         COMMENTS ..
		RUN-PERIOD         JAN 1 1992  THRU  MAR 31 1992  ..


BUILDING-LOCATION  LAT=25.8 LON=80.3 ALT=0 T-Z=5 AZ=0 .. 

			$ SCHEDULES

AVAIL   = SCH   THRU DEC 31 (ALL) (1,24) VALUES= (1)    .. 

			$ CONSTRUCTION TYPES

			$--Materials--$

INSUL      =       MATERIAL
			RESISTANCE=100 ..
$ LAYERS
LAYMURO    = LAYERS
		INSIDE-FILM-RES         = 0.1206
		MATERIAL                = (INSUL) ..
LAYSUELO    = LAYERS
		INSIDE-FILM-RES         = 0.108
		MATERIAL                = (INSUL) ..
LAYTECHO    = LAYERS
		INSIDE-FILM-RES         = 0.1631
		MATERIAL                = (INSUL) ..

$ CONSTRUCCIONES
MURO      = CONSTRUCTION
		LAYERS  = LAYMURO
		ABS=.1 ..
TECHO    = CONSTRUCTION
		LAYERS  = LAYTECHO
		ABS=.1 ..

SUELO     = CONSTRUCTION
		LAYERS  = LAYSUELO
		ABS=.1 ..

			$ GENERAL SPACE DEFINITIONS
INFILT=SCH THRU MAR 31 (ALL) (1,24) VALUES=(0)
                THRU DEC 31 (ALL) (1,24) VALUES=(0) ..
EQUIPO=SCH THRU MAR 31 (ALL) (1,24) VALUES=(1)
                THRU DEC 31 (ALL) (1,24) VALUES=(1) ..
TODO=S-C E-SCH=EQUIPO E-KW=5.4 E-S=1 E-L=0 I-M=AIR-CHANGE A-C=0 I-SCH=INFILT
                T=(26.7) Z-TYPE=CONDITIONED     ..

$ caja de 8x6x2.7
ROOM-1         =SPACE            
		SHAPE                   = BOX
		HEIGHT                  = 2.7
		WIDTH                   = 8
		DEPTH                   = 6
		S-C=TODO 
		X                       = 0
		Y                       = 0
		Z                       = 0
		AZ                      = 0     ..

	W0010R          	= E-W
			LOCATION = RIGHT I-S-A=.6 CONS=MURO ..
	W0010B     	=EXTERIOR-WALL      
			LOC=BACK I-S-A=.6 CONS=MURO ..
	W0010F     	=EXTERIOR-WALL      
			LOC=FRONT I-S-A=.6 CONS=MURO ..
	W0010L     	=EXTERIOR-WALL      
			LOC=LEFT I-S-A=.6 CONS=MURO ..
	W0010TOP=E-W LOC=TOP I-S-A=.6 CONS=TECHO ..
	W0010BOTTOM     = E-W
			LOCATION        = BOTTOM I-S-A=.6 CONS=SUELO ..

LOADS-REPORT	VERIFICATION=(ALL-VERIFICATION)
			SUMMARY=(ALL-SUMMARY) ..
CLIMA=R-B  V-T=GLOBAL  V-L=(4, 18, 10, 17, 15, 14) ..
$CLIMHR=H-R R-SCH=AVAIL R-B=(CLIMA) ..
END  ..
COMPUTE LOADS   ..

INPUT SYSTEMS  INPUT-UNITS=METRIC OUTPUT-UNITS=METRIC ..
TITLE  LINE-1 * HVAC BESTEST. E100. SPLIT=PTAC*  
       LINE-2 *IEA TASK 22 *
       LINE-3 *JUAN TRAVESI. ESE, CIEMAT* .. 
			$ curve fit de los equipos

POTTHS=CURVE-FIT TYPE=BI-QUADRATIC
    OUTPUT-MIN = 0.76  OUTPUT-MAX = 1.137
                DATA=(59,85,0.906810036)
(63,85,0.978494624)
(67,85,1.057347670)
(71,85,1.136200717)
(59,90,0.885304659)
(63,90,0.953405018)
(67,90,1.028673835)
(71,90,1.103942652)
(59,95,0.860215054)
(63,95,0.928315412)
(67,95,1.000000000)
(71,95,1.075268817)
(59,100,0.838709677)
(63,100,0.903225806)
(67,100,0.971326165)
(71,100,1.039426523)
(59,105,0.813620072)
(63,105,0.874551971)
(67,105,0.939068100) ..
$(71,105,1.007168459)
$(59,115,0.763440860)
$(63,115,0.820788530)
$(67,115,0.881720430)
$(71,115,0.942652330) ..

$curva del EIR del equipo en funcin de las EWB y ODBT 
EIRTHS=CURVE-FIT 	TYPE=BI-QUADRATIC
    OUTPUT-MIN = 0.83  OUTPUT-MAX = 1.48
    $ output-max based on interpolated trane data for near-worst case wet 
    $   coil (IDB=80, ODB=115, IWB=63.5).
                DATA=(59,85,0.969268071)
(63,85,0.919052463)
(67,85,0.874565926)
(71,85,0.836254176)
(59,90,1.033031165)
(63,90,0.985918509)
(67,90,0.938501565)
(71,90,0.897550567)
(59,95,1.110465412)
(63,95,1.050919689)
(67,95,1.000000000)
(71,95,0.954598169)
(59,100,1.187455982)
(63,100,1.125163494)
(67,100,1.072460613)
(71,100,1.021770092)
(59,105,1.280338441)
(63,105,1.214398879)
(67,105,1.152632928) ..
$(71,105,1.094897963)
$(59,115,1.477755649)
$(63,115,1.393097505)
$(67,115,1.319901744)
$(71,115,1.250772641) ..

$curva del EIR del equipo en funcin de la CARGA
EIRPLR=CURVE-FIT        TYPE=CUBIC
        OUTPUT-MIN = 0.03  OUTPUT-MAX = 1.0
DATA=(1,1)
(0.90281154,0.924065039)
(0.80562309,0.844468645)
(0.70843463,0.760939453)
(0.61124617,0.673178606)
(0.51405772,0.580856178)
(0.41686926,0.483607031)
(0.31968080,0.380572386)
(0.22249235,0.272328455)
(0.12530389,0.157813465)
(0.02811543,0.036466193) ..

$ curva de la potencia sensible del equipo
SENSTHS=CURVE-FIT TYPE=BI-QUADRATIC
    OUTPUT-MIN = 0.75  OUTPUT-MAX = 1.21
                DATA=(63,85,1.20737327)
(67,85,1.02764977)
(71,85,0.84331797)
(63,90,1.19354839)
(67,90,1.01382488)
(71,90,0.82949309)
(63,95,1.17972350)
(67,95,1.00000000)
(71,95,0.81566820)
(67,100,0.98617512)
(71,100,0.79723502)
(67,105,0.96774194)
(71,105,0.78341014)
(67,115,0.94009217)
(71,115,0.75576037)  ..
        
$ COIL-BF-FT as:
$  ("EWB", "ODB", "(BFt)/(BFari)"); see COIL-BF for more info.
$  normalized on ARI rating point
$  data points are for IDB = 80, and wet coils only.
$  BF is constant as f(IDB).  Qtot varies w/ IDB due to separate control
$  of suction temp.


BFFT222CORR=CURVE-FIT TYPE=BI-QUADRATIC
$EWB,ODB,BF-FT
    OUTPUT-MIN = 0.80 OUTPUT-MAX = 1.37
$DATA=(59,84.92,0.87918990)
$(62.96,84.92,0.89266871)
$(66.92,84.92,1.04765184)
$(71.06,84.92,1.10563117)
$(59,89.96,0.87016965)
$DATA=(62.96,89.96,0.818229885)
$(66.92,89.96,1.011016615)
$(71.06,89.96,1.36771998)
$(59,95,0.806579223)
$(63,95,0.908825289)
$(67,95,1)
$(71,95,1.155773874)
$(59,100,0.865247406)
$(63,100,0.89822705)
$(67,100,1.118427803)
$(71,100,1.321202567)
DATA=(59,105,0.855668583)
(63,105,0.887238454)
(67,105,0.976402667)
(71,105,1.13282325)
(59,115,0.835602407)
(63,115,0.840892659)
(67,115,0.920483638)
(71,115,1.302214696) ..

BFFT222=CURVE-FIT TYPE=BI-QUADRATIC
$EWB,ODB,BF-FT
    OUTPUT-MIN = 0.55 OUTPUT-MAX = 1.5
$DATA=(59,84.92,1.27691425)
$(62.96,84.92,1.10526573)
$(66.92,84.92,1.20797403)
$(71.06,84.92,0.78422506)
$(59,89.96,1.23607366)
DATA=(62.96,89.96,0.876462838)
(66.92,89.96,1.069163447)
(71.06,89.96,1.495669681)
(59,95,1.044885225)
(63,95,1.114887447)
(67,95,1)
(71,95,0.784225065)
(59,100,1.197460762)
(63,100,1.061151021)
(67,100,1.31145994)
(71,100,1.21832688)
(59,105,1.153738335)
(63,105,1.005347784)
(67,105,0.851298545)
(71,105,0.555546452)
(59,115,1.061992944)
(63,115,0.822964271)
(67,115,0.60266009)
(71,115,0.905036414) ..
BFFTLUIS=CURVE-FIT TYPE=BI-QUADRATIC COEF=(11.53027146,-0.37181834,
                                        0.002931669,0.01338981,-0.00012191,
                                        0.000164807) ..

SENSLUIS=CURVE-FIT TYPE=BI-QUADRATIC COEF=(3.373367871,-0.016713407
                                        -0.000208346,-0.001414301,
                                        9.9409E-07,-2.5695E-05) ..


                                                                                
CONSTANTE=CURVE-FIT
                      TYPE=BI-QUADRATIC COEF=(1,0,0,0,0,0) .. 
			$ schedules
AVAIL=SCH	THRU DEC 31 (ALL) (1,24) VALUES=(1) .. 
EOFF=SCH       THRU DEC 31 (ALL) (1,24) VALUES=(0) .. 
EQUIPO=SCH      THRU MAR 31 (ALL) (1,24) VALUES=(1)
                THRU DEC 31 (ALL) (1,24) VALUES=(1) ..
TERMOST=SCH THRU DEC 31 (ALL) (1,24) TEMP=(26.7) ..
TERMOST2=SCH THRU DEC 31 (ALL) (1,24) TEMP=(20.2) ..

                        $ definicion del sistema
CONT=Z-C D-H-T=30.0 H-T-SCH=TERMOST2 D-C-T=15.0 C-T-SCH=TERMOST 
        T-TYPE=TWO-POSITION  T-R=.056 ..
AIRE=Z-A  	A-CFM=1530 $m3/h
		O-A-CFM=0	E-CFM=0 ..
ROOM-1=ZONE  Z-TYPE=CONDITIONED Z-C=CONT Z-A=AIRE 
		ZONE-REPORTS=YES 
		S-O=ADJUST-LOADS
                ZONE-FAN-KW/FLOW=0 ..
CONTSYS=S-C    MIN-SUPPLY-T=6  H-SCH=EOFF C-SCH=EQUIPO ..
AIRSYS=SYSTEM-AIR	SUPPLY-CFM=1530  .. $M3/H
FAN-SYS=SYSTEM-FANS             $S-KW=.00015
$                                INDOOR-FAN-MODE=INTERMITTENT
                                R-KW=0
                                RET-D-T=0
                                SUPPLY-STATIC=27.653 $mm.c.a.
                                SUPPLY-EFF=.5 SUPPLY-MECH-EFF=1
$sup-d-t=Q/(dens.cp.airflow)
$                                SUP-D-T=0.438 .315
$                                FAN-SCHEDULE=EQUIPO AVAIL
$                                FAN-CONTROL=CONSTANT-VOLUME ..
                                FAN-CONTROL=CYCLING ..

        $ ver 2.1.A pagina IV.238 para las ecuaciones. UNIDADES SAJONAS
        $   CAPT=COOLING-CAPACITY*COOL-CAP-FT (EWB*ODB)
        $   SCAPT = (COOL-SH-CAP)*[COOL-SH-FT(EWB,ODB)]
        $           + [1.08*CFM*(1-COIL_BF)*(EDB-80)]
        $   CBF= COIL-BF*COIL-BF-FT(EWB,ODB)*COIL-BF-FCFM(CFMPLR)
        $   EIRT= COOLING-EIR*COOLING-EIR-FT(EWB,ODB)*COOLING-EIR-FPLR/PLR)
        $   QE=CAP*EIRT
$ SCAPT=COOL-SH-CAP*COOL
EQU-SYS=SYSTEM-EQUIPMENT        COOLING-CAPACITY=8181
                       UNIT-AUX-KW=0
                       COOL-CAP-FT=POTTHS
                       COOLING-EIR=.24044
                $(1858+108)/27920 bTU/H
                       COOL-EIR-FT=EIRTHS
$ part load ratio= enfriado total/enfria maximo en esas condiciones
                       COOL-EIR-FPLR=EIRPLR
                       $la potencia sensible es 6360, sin embargo el DOE
                       $hace SCAP=COOL-SH-CAP*COOL-SH-FT+(1.08*CFM)*(1-BF)*
                       $(EDB-80)
                       $como mi fan est antes de la batera mi EDB-80=.828
                       $por lo tanto tengo que
                       $ para 22.3+.46 es 72.97-80=-7.032
                       $COOL-SH-CAP=SCAP+(1.08*900*7.032)*(1-BF) en BTU/h
                       COOL-SH-CAP= 6127.2 $8180 6574 8579 6360
                       COOL-SH-FT= SENSLUIS $SENSTHS
                       COIL-BF=0.0816173
$                       .080825
                       $22.2 .0305
                       $23.3 .274
                       $24.4 .188
                       $25.6 .107
                       $26.7 .02179
$                       COIL-BF-FCFM=?
                       COIL-BF-FT=BFFTLUIS
$                      COIL-BF-FT=TTP024C-BF-FT
$                       COIL-BF-FPLR=?
                        COOL-WASTE-HEAT=0
                        CONDENSER-TYPE=AIR-COOLED
			CRANKCASE-HEAT=0
                        FURNACE-AUX=0   ..
SPLIT=SYSTEM    SYSTEM-TYPE=PTAC 
			ZONE-NAMES=(ROOM-1)
			S-C=CONTSYS S-A=AIRSYS S-FANS=FAN-SYS 
                        HEAT-SOURCE=HEAT-PUMP
                        UNIT-PUMP-ELEC=0
                        S-EQ=EQU-SYS
                        EVAP-CL-TYPE=NONE
                        EVAP-PCC-ELEC=0
                        EVAP-CL-KW=0
                        ..

SYSTEMS-REPORT		SUMMARY=(ALL-SUMMARY) ..
AVAIL2=SCH THRU JAN 31 (ALL) (1,24) VALUES=(0)
		THRU FEB 28 (ALL) (1,24) VALUES=(1)
		THRU DEC 31 (ALL) (1,24) VALUES=(0) ..
$ evaporator: 33,43
$envelope: 1,2
$IDB=6
$recalcar que el Humidity ratio es salida del cooling coil
TBH=R-B  V-T=ROOM-1  V-L=(33,43,8,2,6,13) ..
TBH2=R-B  V-T=ROOM-1  V-L=(1,2,6,13) ..
$cooling energy: 25,47,33
$COP=(z33-33)/(47+33)
COP=R-B  V-T=SPLIT  V-L=(25,35,47,33) ..
COP2=R-B  V-T=SPLIT  V-L=(6,48) ..
COP3=R-B  V-T=SPLIT  V-L=(17,25,35,47,33) ..
$COP=R-B  V-T=SPLIT  V-L=(25,47,33,68) ..
$COP=R-B  V-T=SPLIT  V-L=(70,68,32,33,47,49) ..
$TBHCOM=R-B  V-T=ROOM-1  V-L=(13) ..
TBHCOM=R-B  V-T=ROOM-1  V-L=(47) ..
COMPRUEBA=R-B V-T=SPLIT V-L=(2,3,54,55,56,61,63,64,70,71,48,66,67,68) ..
TEMPER=R-B V-T=GLOBAL V-L=(8) ..
COMPRU=H-R R-SCH=AVAIL2 R-B=(TEMPER,TBHCOM,COMPRUEBA) ..
CLIMHR=H-R R-SCH=AVAIL2 R-B=(TBH,COP) ..
TBH3=R-B  V-T=ROOM-1  V-L=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44)
 ..
TBH4=R-B  V-T=ROOM-1 V-L=(45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,
60,61,62,63,64,65,66,67,68,69) ..
COMPR=R-B V-T=SPLIT  V-L=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44)
 ..
COMPR2=R-B V-T=SPLIT  V-L=(45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,
61,62,63,64,65,66,67,68,69) ..
$CLIMHR5=H-R R-SCH=AVAIL2 R-B=(TBH3) ..
$CLIMHR6=H-R R-SCH=AVAIL2 R-B=(TBH4) ..
$CLIMHR7=H-R R-SCH=AVAIL2 R-B=(COMPR) ..
$CLIMHR8=H-R R-SCH=AVAIL2 R-B=(COMPR2) ..

END ..

COMPUTE SYSTEMS ..

STOP ..


